home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / e_os300b / ex_diamd / diamond.asm next >
Encoding:
Assembly Source File  |  1996-11-06  |  1.2 KB  |  55 lines
  1. Locals
  2. .386
  3. CODE32 SEGMENT PUBLIC PARA 'CODE' USE32
  4. ASSUME  CS:CODE32,DS:CODE32,ES:CODE32
  5.  
  6. ;──────────────────────────────────────────────────────────────────────────────
  7.  
  8. INCLUDE ..\RESOURCE\EOS.INC
  9.  
  10. File_Name   db 128 dup (0)
  11.  
  12. Msg_Playing db '    ■ Usage DIAMOND.EXE <file>.mod - ESC to quit.',13,10,36
  13.  
  14. ;──────────────────────────────────────────────────────────────────────────────
  15.  
  16. Start32:
  17.             mov ah,9
  18.             mov edx,O Msg_Playing
  19.             int 21h
  20.  
  21.             Get_Param File_Name
  22.             jc @@Ok100
  23.  
  24.             mov ah,Detect_Sound_Card
  25.             mov ecx,1
  26.             Int_EOS
  27.  
  28.             mov ah,Load_Module
  29.             mov al,1
  30.             mov bx,44100
  31.             xor ecx,ecx
  32.             mov edx,O File_Name
  33.             Int_EOS
  34.             jc @@Ok100
  35.  
  36.             mov ah,Play_Module
  37.             Int_EOS
  38. @@Ok100:
  39.             xor ah,ah
  40.             DosInt 16h
  41.  
  42.             mov ah,Stop_Module
  43.             Int_EOS
  44.  
  45.             mov ah,Clear_Module
  46.             Int_EOS
  47.  
  48.             mov ax,4c00h
  49.             int 21h
  50.  
  51. ;──────────────────────────────────────────────────────────────────────────────
  52.  
  53. CODE32 ENDS
  54.  
  55.         END